This is my import procedure
library(readxl)
library(tidyverse)
url <- "https://github.com/philbowsher/Foundation-of-the-R-Workflow-workshop-2019-09-06/raw/master/Examples/data/ad_treatment.xlsx"
destfile <- "ad_treatment.xlsx"
curl::curl_download(url, destfile)
ad_treatment <- read_excel(destfile)
This is my awesome data Viz of survey results for verbose carnival
library(ggplot2)
library(plotly)
plot <- ggplot(ad_treatment) +
aes(x = drug_treatment, y = mmse, fill = sex) +
geom_boxplot() +
scale_fill_gradient() +
theme_minimal() +
facet_grid(vars(), vars(sex))
ggplotly(plot)
NA
LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKVGhpcyBpcyBteSBpbXBvcnQgcHJvY2VkdXJlICAgICAgICAgCgpgYGB7cn0KCmxpYnJhcnkocmVhZHhsKQpsaWJyYXJ5KHRpZHl2ZXJzZSkKCgp1cmwgPC0gImh0dHBzOi8vZ2l0aHViLmNvbS9waGlsYm93c2hlci9Gb3VuZGF0aW9uLW9mLXRoZS1SLVdvcmtmbG93LXdvcmtzaG9wLTIwMTktMDktMDYvcmF3L21hc3Rlci9FeGFtcGxlcy9kYXRhL2FkX3RyZWF0bWVudC54bHN4IgpkZXN0ZmlsZSA8LSAiYWRfdHJlYXRtZW50Lnhsc3giCmN1cmw6OmN1cmxfZG93bmxvYWQodXJsLCBkZXN0ZmlsZSkKYWRfdHJlYXRtZW50IDwtIHJlYWRfZXhjZWwoZGVzdGZpbGUpCgoKCmBgYAoKClRoaXMgaXMgbXkgYXdlc29tZSBkYXRhIFZpeiBvZiBzdXJ2ZXkgcmVzdWx0cyBmb3IgdmVyYm9zZSBjYXJuaXZhbAoKYGBge3J9CgpsaWJyYXJ5KGdncGxvdDIpCmxpYnJhcnkocGxvdGx5KQoKCnBsb3QgPC0gZ2dwbG90KGFkX3RyZWF0bWVudCkgKwogYWVzKHggPSBkcnVnX3RyZWF0bWVudCwgeSA9IG1tc2UsIGZpbGwgPSBzZXgpICsKIGdlb21fYm94cGxvdCgpICsKIHNjYWxlX2ZpbGxfZ3JhZGllbnQoKSArCiB0aGVtZV9taW5pbWFsKCkgKwogZmFjZXRfZ3JpZCh2YXJzKCksIHZhcnMoc2V4KSkKCmdncGxvdGx5KHBsb3QpCgpgYGAKCg==